home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / receipt / storedlg.frm < prev    next >
Text File  |  1993-07-21  |  5KB  |  186 lines
  1. VERSION 2.00
  2. Begin Form Form4 
  3.    Caption         =   "Store Data"
  4.    ClientHeight    =   3435
  5.    ClientLeft      =   1230
  6.    ClientTop       =   1605
  7.    ClientWidth     =   7455
  8.    Height          =   3840
  9.    Left            =   1170
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form4"
  12.    ScaleHeight     =   229
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   497
  15.    Top             =   1260
  16.    Width           =   7575
  17.    Begin CommandButton Command2 
  18.       Caption         =   "Cancel"
  19.       Height          =   375
  20.       Left            =   3960
  21.       TabIndex        =   5
  22.       Top             =   2760
  23.       Width           =   2055
  24.    End
  25.    Begin CommandButton Command1 
  26.       Caption         =   "OK"
  27.       Default         =   -1  'True
  28.       Height          =   375
  29.       Left            =   1200
  30.       TabIndex        =   4
  31.       Top             =   2760
  32.       Width           =   2055
  33.    End
  34.    Begin VBedit BEdit4 
  35.       CellHeight      =   32
  36.       CellWidth       =   22
  37.       CombBaseLine    =   24.333
  38.       CombEndHeight   =   8
  39.       CombEndMarker   =   0   'False
  40.       CombHeight      =   4
  41.       FontBold        =   0   'False
  42.       FontItalic      =   0   'False
  43.       FontName        =   "Arial"
  44.       FontSize        =   18
  45.       FontStrikethru  =   0   'False
  46.       FontUnderline   =   0   'False
  47.       Height          =   495
  48.       InflateBottom   =   12
  49.       InflateLeft     =   12
  50.       InflateRight    =   12
  51.       InflateTop      =   16
  52.       Left            =   1800
  53.       TabIndex        =   9
  54.       Top             =   2040
  55.       Version         =   268435458
  56.       Width           =   5415
  57.    End
  58.    Begin VBedit BEdit3 
  59.       CellHeight      =   32
  60.       CellWidth       =   22
  61.       CombBaseLine    =   24.333
  62.       CombEndHeight   =   8
  63.       CombEndMarker   =   0   'False
  64.       CombHeight      =   4
  65.       FontBold        =   0   'False
  66.       FontItalic      =   0   'False
  67.       FontName        =   "Arial"
  68.       FontSize        =   18
  69.       FontStrikethru  =   0   'False
  70.       FontUnderline   =   0   'False
  71.       Height          =   495
  72.       InflateBottom   =   12
  73.       InflateLeft     =   12
  74.       InflateRight    =   12
  75.       InflateTop      =   16
  76.       Left            =   1800
  77.       TabIndex        =   8
  78.       Top             =   1440
  79.       Version         =   268435458
  80.       Width           =   5415
  81.    End
  82.    Begin VBedit BEdit2 
  83.       CellHeight      =   32
  84.       CellWidth       =   22
  85.       CombBaseLine    =   24.333
  86.       CombEndHeight   =   8
  87.       CombEndMarker   =   0   'False
  88.       CombHeight      =   4
  89.       FontBold        =   0   'False
  90.       FontItalic      =   0   'False
  91.       FontName        =   "Arial"
  92.       FontSize        =   18
  93.       FontStrikethru  =   0   'False
  94.       FontUnderline   =   0   'False
  95.       Height          =   495
  96.       InflateBottom   =   12
  97.       InflateLeft     =   12
  98.       InflateRight    =   12
  99.       InflateTop      =   16
  100.       Left            =   1800
  101.       TabIndex        =   7
  102.       Top             =   840
  103.       Version         =   268435458
  104.       Width           =   5415
  105.    End
  106.    Begin VBedit BEdit1 
  107.       CellHeight      =   32
  108.       CellWidth       =   22
  109.       CharSet         =   16396
  110.       CombBaseLine    =   24.333
  111.       CombEndHeight   =   8
  112.       CombEndMarker   =   0   'False
  113.       CombHeight      =   4
  114.       FontBold        =   0   'False
  115.       FontItalic      =   0   'False
  116.       FontName        =   "Arial"
  117.       FontSize        =   18
  118.       FontStrikethru  =   0   'False
  119.       FontUnderline   =   0   'False
  120.       Height          =   495
  121.       InflateBottom   =   12
  122.       InflateLeft     =   12
  123.       InflateRight    =   12
  124.       InflateTop      =   16
  125.       Left            =   1800
  126.       TabIndex        =   6
  127.       Top             =   240
  128.       Version         =   268435458
  129.       Width           =   1455
  130.    End
  131.    Begin Label Label4 
  132.       Caption         =   "Department:"
  133.       Height          =   255
  134.       Left            =   240
  135.       TabIndex        =   3
  136.       Top             =   2160
  137.       Width           =   1095
  138.    End
  139.    Begin Label Label3 
  140.       Caption         =   "Sold By: "
  141.       Height          =   255
  142.       Left            =   240
  143.       TabIndex        =   2
  144.       Top             =   1560
  145.       Width           =   735
  146.    End
  147.    Begin Label Label2 
  148.       Caption         =   "Store Location:"
  149.       Height          =   255
  150.       Left            =   240
  151.       TabIndex        =   1
  152.       Top             =   960
  153.       Width           =   1335
  154.    End
  155.    Begin Label Label1 
  156.       Caption         =   "Store #: "
  157.       Height          =   255
  158.       Left            =   240
  159.       TabIndex        =   0
  160.       Top             =   360
  161.       Width           =   735
  162.    End
  163. End
  164.  
  165. Sub Command1_Click ()
  166.    Form1.StoreNo.Text = LTrim$(BEdit1.Text)
  167.    Form1.StoreLoc.Text = LTrim$(BEdit2.Text)
  168.    Form1.SoldBy.Text = LTrim$(BEdit3.Text)
  169.    Form1.Dept.Text = LTrim$(BEdit4.Text)
  170.    Unload Form4
  171. End Sub
  172.  
  173. Sub Command2_Click ()
  174.    Unload Form4
  175. End Sub
  176.  
  177. Sub Form_Load ()
  178.    Form4.Top = (Screen.Height - Form4.Height) / 2
  179.    Form4.Left = (Screen.Width - Form4.Width) / 2
  180.    BEdit1.Text = LTrim$(Form1.StoreNo.Text)
  181.    BEdit2.Text = Form1.StoreLoc.Text
  182.    BEdit3.Text = Form1.SoldBy.Text
  183.    BEdit4.Text = Form1.Dept.Text
  184. End Sub
  185.  
  186.